Visualização 1

Column

Sexo Biológico

Column

Idade

Visualização 1

Column

Perfil Racial em 2019

Tabela

Tabela

   ano Homens Mulheres
1 2015   1033       56
2 2016   4714      267
3 2017   5757      378
4 2018   5253      324
5 2019   4804      349
---
title: "Dashboard - Audiência de Custódia - Salvador/BA"
author: "William Sacramento"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    theme: cerulean
    logo: logo4.png
    social: menu
    source_code: embed
    navbar: 
      - { title: "Sobre mim", href: "https://linkedin.com/in/william-sacramento-a9605a219" }
---

```{r setup, include=FALSE}
library(rbokeh)
library(flexdashboard)
library(readxl)
library(readr)

dados <- read.csv("C:/UFBa/Projeto/dbleiseca/aud_sexo_bio - sexo_bio.csv")
dados1 <- read_xlsx("C:/UFBa/Projeto/dbleiseca/raca.xlsx")
dados2 <- read_delim("audiencia_idade.csv", 
    delim = ";", escape_double = FALSE, trim_ws = TRUE)
```

# Visualização 1 {data-icon="fa-signal" data-navmenu="Análises"}

## Column {.sidebar}

Dashboard inicial para apresentar os dados referentes à Audiência de Custódia na cidade de Salvador-Bahia. 

Fonte dos dados: ## Column {data-width=600} ### Sexo Biológico ```{r} library(ggplot2) library(babynames) library(dplyr) # Plot g <- ggplot(dados, aes(x = ano))+ geom_col(aes(y=Homens), fill = 'cyan')+ geom_col(aes(y=Mulheres), fill = 'pink')+ ylab('Número de autuados') g ``` ## Column {data-width=400} ### Idade ```{r} library(ggplot2) library(babynames) library(dplyr) # Plot g1 <- ggplot(dados2, aes(x = ano))+ geom_col(aes(y=`18-29`), fill = 'blue')+ geom_col(aes(y=`30-41`), fill = 'cyan')+ geom_col(aes(y=`42-53`), fill = 'green')+ geom_col(aes(y=maiores_60), fill = 'yellow')+ ylab('Número de autuados') g1 ``` # Visualização 1 {data-icon="fa-signal" data-navmenu="Análises"} ## Column {data-width=600} ### Perfil Racial em 2019 ```{r} library(ggplot2) library(babynames) library(dplyr) # Plot g2 <- ggplot(dados1, aes(x=raca,y=quantidade))+ geom_col(aes(fill = raca)) g2 ``` # Tabela {data-icon="fa-table" data-navmenu="Análises"} ### Tabela ```{r} dados ```